home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / textloader61 / util / textloader60.src < prev    next >
Text File  |  1998-02-10  |  68KB  |  2,395 lines
  1. *************
  2. * Deck "Textloader6.0"
  3. * Time 22:56:24
  4. * Date 11/28/97
  5. *************
  6.  
  7. *************
  8. * Card(s) in deck.
  9. *  Card "BildAnzeiger"
  10. *  Card "Hauptfenster"
  11. *  Card "Systeminfos..."
  12. *************
  13. * 3 Card(s), 3 were printed.
  14. *************
  15.  
  16. *************
  17. * Natural order of Cards
  18. *  Card "Hauptfenster"
  19. *  Card "Systeminfos..."
  20. *  Card "BildAnzeiger"
  21. *************
  22.  
  23. *************
  24. * Global Routine(s) in deck.
  25. *  Routine "AusserFunktion"
  26. *  Routine "Beep"
  27. *  Routine "Drucken"
  28. *  Routine "Einfügen"
  29. *  Routine "EinfügenDATA"
  30. *  Routine "Ende"
  31. *  Routine "Ende2"
  32. *  Routine "EndeCloseknopf"
  33. *  Routine "FehlerRoutine"
  34. *  Routine "Löschen"
  35. *  Routine "Message"
  36. *  Routine "S"
  37. *  Routine "SetzeAttr"
  38. *  Routine "SF"
  39. *  Routine "Sicherheitsabfrage"
  40. *  Routine "SichernVorBeenden"
  41. *  Routine "Suchen"
  42. *  Routine "SysInfoUpdates"
  43. *  Routine "SysInfoUpdates2"
  44. *  Routine "Timing"
  45. *  Routine "Timing2"
  46. *  Routine "Timing3"
  47. *  Routine "Timing4"
  48. *  Routine "Timing5"
  49. *  Routine "Timing6"
  50. *  Routine "Timing7"
  51. *  Routine "Timing8"
  52. *  Routine "Timing9"
  53. *  Routine "TitelUhr"
  54. *************
  55. * 29 Global routines(s), 29 were printed.
  56. *************
  57.  
  58. *************
  59. * Card "BildAnzeiger"
  60.     AfterAttachment ; used to be AfterStartup
  61.         ShowPicture Bild
  62.         IfError
  63.             SetPen 1
  64.             PrintText "Bild kann nicht geladen werden! Haben Sie überhaupt ein",10,7
  65.             PrintText "Bild Ausgewählt?",10,17
  66.             PrintText "Vielleicht wird aber Ihr verwendetes Bildspeicherformat vom ",10,37
  67.             PrintText "Textloader nicht Unterstützt!",10,47
  68.             SetPen 3
  69.             PrintText "Für das Bild-Menü zu starten, bitte mit der Maus das Balkenmenü aktivieren...",10,67
  70.         EndIf
  71.         ScreenTo FRONT 
  72.     EndScript
  73.     Window "UserWindow"
  74.         Definition
  75.             Origin 0,0
  76.             Size 640,256
  77.             Title ""
  78.             NumberOfColors 16
  79.             WindowColors 0,1,0 ; Detail, Block, Background
  80.             WindowObjects NONE 
  81.             WindowFlags ACTIVATE BORDERLESS SEPARATESCREEN TOFRONT 
  82.         EndScript
  83.         OnCloseButton
  84.             GotoCard "Aufgeben"
  85.         EndScript
  86.         OnActivated
  87.             Nop
  88.         EndScript
  89.         OnResized
  90.             ScreenTo FRONT 
  91.         EndScript
  92.     EndObject
  93.     TextMenu "Bildschirm drucken..."
  94.         Definition
  95.             AttachTo MENU ,"BildMenü"
  96.             Font "personal",8 ; FontName, PointSize
  97.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  98.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  99.             Text "Bildschirm drucken..."
  100.             MenuFlags NONE 
  101.             Highlight COMPLEMENT 
  102.             ShortCutKey ""
  103.         EndScript
  104.         Occurred
  105.             PrintScreen
  106.             IfError
  107.                 Do "Fehlerroutine"
  108.             EndIf
  109.         EndScript
  110.     EndObject
  111.     TextMenu "Zurück zum Textloader"
  112.         Definition
  113.             AttachTo MENU ,"BildMenü"
  114.             Font "topaz",8 ; FontName, PointSize
  115.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  116.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  117.             Text "Zurück zum Textloader"
  118.             MenuFlags NONE 
  119.             Highlight COMPLEMENT 
  120.             ShortCutKey ""
  121.         EndScript
  122.         Occurred
  123.             GotoCard "Hauptfenster"
  124.         EndScript
  125.     EndObject
  126.     TextMenu "System-Infobar"
  127.         Definition
  128.             AttachTo MENU ,"BildMenü"
  129.             Font "topaz",8 ; FontName, PointSize
  130.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  131.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  132.             Text "System-Infobar"
  133.             MenuFlags NONE 
  134.             Highlight COMPLEMENT 
  135.             ShortCutKey ""
  136.         EndScript
  137.         Occurred
  138.             GotoCard "Systeminfos..."
  139.         EndScript
  140.     EndObject
  141.     TextMenu "Textloader beenden"
  142.         Definition
  143.             AttachTo MENU ,"BildMenü"
  144.             Font "topaz",8 ; FontName, PointSize
  145.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  146.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  147.             Text "Textloader beenden"
  148.             MenuFlags NONE 
  149.             Highlight COMPLEMENT 
  150.             ShortCutKey ""
  151.         EndScript
  152.         Occurred
  153.             Quit
  154.         EndScript
  155.     EndObject
  156. * End of Card "BildAnzeiger"
  157. *************
  158.  
  159. *************
  160. * Card "Hauptfenster"
  161.     BeforeAttachment ; used to be OnStartup
  162.         LoadSubDeck "SimpleReq","SimpleReq"
  163.         LoadSubDeck "SuchReq","SuchReq"
  164.         LoadSubDeck "ConiPalette","Palette"
  165.         LoadSubDeck "ConiAvail","Avail"
  166.         If exists ("sys:fonts/personal/8")
  167.         Else
  168.             OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Ich kann den Textloader","Font nicht finden. Bitte","zuerst Installieren!","Sonst lade ich TOPAZ/8!"
  169.             Delay 0,5,1/50
  170.         EndIf
  171.         Echo " "
  172.         Echo "Textloader von Pascal Gisin!"
  173.         Echo "============================"
  174.         Echo " "
  175.         Echo "   >>>Der starke Editor für den AMIGA...<<<"
  176.         Echo " "
  177.         Echo "©1994-97 FORCESOFT (PASCAL GISIN)"
  178.         Echo " "
  179.         Echo "             My New Nickname, FORCE!!!"
  180.     EndScript
  181.     AfterAttachment ; used to be AfterStartup
  182.         SetScreenTitle "»FORCE SOFT« presents the Textloader by P.Gisin ©1994-98 (Force)"
  183.         OpenRequester "SimpleReq","Kommentar","","Textloader Information...","!Herzlich Willkommen!","Schicken Sie mir eine","Postkarte für die Registration!","!!! ES LOHNT SICH !!!"
  184.     EndScript
  185.     BeforeDetachment ; used to be OnFinishup
  186.         SaveDocument "TheDoc","ram:Txt.bak",ASCII 
  187.     EndScript
  188.     MessageFromSubDeck
  189.         If Arg1 <> ""
  190.             Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4")
  191.         EndIf
  192.     EndScript
  193.     Window "UserWindow"
  194.         Definition
  195.             Origin 0,11
  196.             Size 640,244
  197.             Title "Textloader 6.0"
  198.             NumberOfColors 4,167936
  199.             WindowColors 1,2,0 ; Detail, Block, Background
  200.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  201.             WindowFlags ACTIVATE TOFRONT WORKBENCH 
  202.         EndScript
  203.         OnCloseButton
  204.             OpenRequester "SimpleReq","JaNein","EndeCloseknopf","Textloader Meldung..."," ","Möchten Sie wirklich","jetzt, den Textloader beenden?"," "
  205.         EndScript
  206.         OnActivated
  207.             Nop
  208.         EndScript
  209.     EndObject
  210.     Memo "Dokument"
  211.         Definition
  212.             Origin 5,12
  213.             Size 616,230
  214.             Font "topaz",8 ; FontName, PointSize
  215.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  216.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  217.             Border OUTLINE ,2,1 ; BorderStyle, MainPen, ExtraPen
  218.             Document "TheDoc" ; where the text comes from
  219.             ScrollBars RIGHT 
  220.             InputStyle NORMAL 
  221.         EndScript
  222.         OnDrag
  223.             Nop
  224.         EndScript
  225.     EndObject
  226.     TextMenu "Autor...                    »"
  227.         Definition
  228.             AttachTo MENU ,"Editormenü"
  229.             Font "personal",8 ; FontName, PointSize
  230.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  231.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  232.             Text "Autor...                    »"
  233.             MenuFlags NONE 
  234.             Highlight COMPLEMENT 
  235.             ShortCutKey ""
  236.         EndScript
  237.         Occurred
  238.             Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"Dedicated To ALL AMIGIANS OF THE WORLD"
  239.             Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  240.         EndScript
  241.     EndObject
  242.     TextMenu "SystemInfo..."
  243.         Definition
  244.             AttachTo MENU ,"Editormenü"
  245.             Font "personal",8 ; FontName, PointSize
  246.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  247.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  248.             Text "SystemInfo..."
  249.             MenuFlags NONE 
  250.             Highlight COMPLEMENT 
  251.             ShortCutKey "?"
  252.         EndScript
  253.         Occurred
  254.             If Hilfsmodus = TRUE
  255.                 OpenRequester "HelpReq","Card_1","","Mit diesem Menüpunkt, erhalten Sie","Interresannte Infos über Speicher-,","Chip-, Fast und Ihre Systemkonfigurationen!"," "," "
  256.             Else
  257.                 GotoCard "Systeminfos..."
  258.             EndIf
  259.         EndScript
  260.     EndObject
  261.     TextMenu "Trennstrich4"
  262.         Definition
  263.             AttachTo MENU ,"Editormenü"
  264.             Font "personal",8 ; FontName, PointSize
  265.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  266.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  267.             Text "-------------------------------"
  268.             MenuFlags NONE 
  269.             Highlight NONE 
  270.             ShortCutKey ""
  271.         EndScript
  272.     EndObject
  273.     TextMenu "Laden..."
  274.         Definition
  275.             AttachTo MENU ,"Editormenü"
  276.             Font "personal",8 ; FontName, PointSize
  277.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  278.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  279.             Text "Laden..."
  280.             MenuFlags NONE 
  281.             Highlight COMPLEMENT 
  282.             ShortCutKey "L"
  283.         EndScript
  284.         Occurred
  285.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  286.             Let Laden=AskForFilename("","ASCII/FTXT Datei laden...","155","39","340","180")
  287.             Let NeueDatei=Laden
  288.             If NeueDatei<>NOTHING
  289.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  290.                     Do "Beep"
  291.                     SetWindowTitle "Kann die Datei"|||NeueDatei|||"nicht laden"
  292.                 Else
  293.                     SetWindowTitle "Lade Dokument..."
  294.                     LoadDocument NeueDatei,"TheDoc"
  295.                     IfError
  296.                         Do "Beep"
  297.                         OpenRequester "SimpleReq","Kommentar","","Textloader Mitteilung","Ihre gewählte Datei ist","kein ASCII oder FTXT Format!","Es könnte ein binäres File","sein!"
  298.                     Else
  299.                         SetWindowTitle "Dateiname"|||NeueDatei
  300.                     EndIf
  301.                 EndIf
  302.             EndIf
  303.         EndScript
  304.     EndObject
  305.     TextMenu "Laden, Bild..."
  306.         Definition
  307.             AttachTo MENU ,"Editormenü"
  308.             Font "personal",8 ; FontName, PointSize
  309.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  310.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  311.             Text "Laden, Bild..."
  312.             MenuFlags NONE 
  313.             Highlight COMPLEMENT 
  314.             ShortCutKey "!"
  315.         EndScript
  316.         Occurred
  317.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  318.             Let Datei=AskForFileName(Bild, "Bild auswählen! Zum laden...","155","39","340","180")
  319.             If Datei <> ""
  320.                 Let Bild = Datei
  321.                 GotoCard "BildAnzeiger"
  322.             EndIf
  323.         EndScript
  324.     EndObject
  325.     TextMenu "LadenBild(PP)"
  326.         Definition
  327.             AttachTo MENU ,"Editormenü"
  328.             Font "personal",8 ; FontName, PointSize
  329.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  330.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  331.             Text "LadenBild(PP)"
  332.             MenuFlags NONE 
  333.             Highlight COMPLEMENT 
  334.             ShortCutKey ""
  335.         EndScript
  336.         Occurred
  337.             If exists("Sys:c/PPshow")
  338.                 Dos "Run >NIL: <Nil: Sys:c/PPshow"
  339.             Else
  340.                 Let Fehler=AskForResponse("Leider konnte PPSHOW nicht gefunden werden!","Anzeigeproblem...","Schade")
  341.                 If Fehler=1
  342.                     DisableObject "LadenBild(PP)"
  343.                 EndIf
  344.             EndIf
  345.         EndScript
  346.     EndObject
  347.     TextMenu "TrennstrichX1"
  348.         Definition
  349.             AttachTo MENU ,"Editormenü"
  350.             Font "personal",8 ; FontName, PointSize
  351.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  352.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  353.             Text "-------------------------------"
  354.             MenuFlags NONE 
  355.             Highlight NONE 
  356.             ShortCutKey ""
  357.         EndScript
  358.     EndObject
  359.     TextMenu "Einfügen..."
  360.         Definition
  361.             AttachTo MENU ,"Editormenü"
  362.             Font "personal",8 ; FontName, PointSize
  363.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  364.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  365.             Text "Einfügen..."
  366.             MenuFlags NONE 
  367.             Highlight COMPLEMENT 
  368.             ShortCutKey "E"
  369.         EndScript
  370.         Occurred
  371.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  372.             Let Einfügen=AskForFilename("","Text beim Cursor einfügen...","155","39","340","180")
  373.             Let Newfile = Einfügen
  374.             If newfile<>nothing
  375.                 If Not Match(FileType(newfile),"Unknown","FTXT")
  376.                     SetWindowTitle "Kann File nicht Laden """||newfile||""""
  377.                 Else
  378.                     SetWindowTitle "Lade einzufügender Text....."
  379.                     InsertDocument newfile,"TheDoc"
  380.                     IfError
  381.                         Do "Fehlerroutine"
  382.                     Else
  383.                         Let FileToGet=newfile
  384.                         SetWindowTitle "FileName :"""||FileToGet||""""
  385.                     EndIf
  386.                 EndIf
  387.             EndIf
  388.         EndScript
  389.     EndObject
  390.     TextMenu "TrennstrichX9"
  391.         Definition
  392.             AttachTo MENU ,"Editormenü"
  393.             Font "personal",8 ; FontName, PointSize
  394.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  395.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  396.             Text "-------------------------------"
  397.             MenuFlags NONE 
  398.             Highlight NONE 
  399.             ShortCutKey ""
  400.         EndScript
  401.     EndObject
  402.     TextMenu "Suchen..."
  403.         Definition
  404.             AttachTo MENU ,"Editormenü"
  405.             Font "personal",8 ; FontName, PointSize
  406.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  407.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  408.             Text "Suchen..."
  409.             MenuFlags NONE 
  410.             Highlight COMPLEMENT 
  411.             ShortCutKey "S"
  412.         EndScript
  413.         Occurred
  414.             Do "S"
  415.         EndScript
  416.     EndObject
  417.     TextMenu "Suchen fortsetzen..."
  418.         Definition
  419.             AttachTo MENU ,"Editormenü"
  420.             Font "personal",8 ; FontName, PointSize
  421.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  422.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  423.             Text "Suchen fortsetzen..."
  424.             MenuFlags NONE 
  425.             Highlight COMPLEMENT 
  426.             ShortCutKey "W"
  427.         EndScript
  428.         Occurred
  429.             Do "SF"
  430.         EndScript
  431.     EndObject
  432.     TextMenu "TrennstrichX7"
  433.         Definition
  434.             AttachTo MENU ,"Editormenü"
  435.             Font "personal",8 ; FontName, PointSize
  436.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  437.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  438.             Text "-------------------------------"
  439.             MenuFlags NONE 
  440.             Highlight NONE 
  441.             ShortCutKey ""
  442.         EndScript
  443.     EndObject
  444.     TextMenu "Speichern, ASCII"
  445.         Definition
  446.             AttachTo MENU ,"Editormenü"
  447.             Font "personal",8 ; FontName, PointSize
  448.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  449.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  450.             Text "Speichern, ASCII"
  451.             MenuFlags NONE 
  452.             Highlight COMPLEMENT 
  453.             ShortCutKey "A"
  454.         EndScript
  455.         Occurred
  456.             SetFileRequestMode SAVEFILEMODE ,NONE 
  457.             Let SichernAscii=AskForFileName("","Text in ASCII sichern...","155","39","340","180")
  458.             Let Antwort = SichernAscii
  459.             If Antwort <> ""
  460.                 Let Dateispeichername = Antwort
  461.                 SetWindowTitle "Speichere nun im ASCII Format!"
  462.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  463.                 IfError
  464.                     Do "Fehlerroutine"
  465.                 EndIf
  466.             EndIf
  467.             SetWindowTitle "Textloader ©  by P.Gisin"
  468.         EndScript
  469.     EndObject
  470.     TextMenu "Speichern, FTXT"
  471.         Definition
  472.             AttachTo MENU ,"Editormenü"
  473.             Font "personal",8 ; FontName, PointSize
  474.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  475.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  476.             Text "Speichern, FTXT"
  477.             MenuFlags NONE 
  478.             Highlight COMPLEMENT 
  479.             ShortCutKey "F"
  480.         EndScript
  481.         Occurred
  482.             SetFileRequestMode SAVEFILEMODE ,NONE 
  483.             Let SpeichernFTXT=askForFilename("","Text im FTXT Format sichern...","155","39","340","180")
  484.             Let Antwort = SpeichernFTXT
  485.             If Antwort <> ""
  486.                 Let Dateispeichername = Antwort
  487.                 SetWindowTitle "Speichere nun im FTXT Format!"
  488.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  489.                 IfError
  490.                     Do "Fehlerroutine"
  491.                 EndIf
  492.             EndIf
  493.             SetWindowTitle "Textloader © by P.Gisin"
  494.         EndScript
  495.     EndObject
  496.     TextMenu "Speichern, Backup           »"
  497.         Definition
  498.             AttachTo MENU ,"Editormenü"
  499.             Font "personal",8 ; FontName, PointSize
  500.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  501.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  502.             Text "Speichern, Backup           »"
  503.             MenuFlags NONE 
  504.             Highlight COMPLEMENT 
  505.             ShortCutKey ""
  506.         EndScript
  507.     EndObject
  508.     TextMenu "Sicherheitskopie anlegen (1)"
  509.         Definition
  510.             AttachTo OBJECT ,"Speichern, Backup           »"
  511.             Font "personal",8 ; FontName, PointSize
  512.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  513.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  514.             Text "Sicherheitskopie anlegen (1)"
  515.             MenuFlags NONE 
  516.             Highlight COMPLEMENT 
  517.             ShortCutKey ""
  518.         EndScript
  519.         Occurred
  520.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (1)"
  521.             SaveDocument "TheDoc","ram:1BackupTextloader",ASCII 
  522.             IfError
  523.                 Do "Fehlerroutine"
  524.             EndIf
  525.             Delay 0,3,1/50
  526.             SetWindowTitle "Textloader Editor, von Pascal Gisin  © 1994-96 B.S.E."
  527.         EndScript
  528.     EndObject
  529.     TextMenu "TrennstrichX2"
  530.         Definition
  531.             AttachTo MENU ,"Editormenü"
  532.             Font "personal",8 ; FontName, PointSize
  533.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  534.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  535.             Text "-------------------------------"
  536.             MenuFlags NONE 
  537.             Highlight NONE 
  538.             ShortCutKey ""
  539.         EndScript
  540.     EndObject
  541.     TextMenu "Löschen, TEXT"
  542.         Definition
  543.             AttachTo MENU ,"Editormenü"
  544.             Font "personal",8 ; FontName, PointSize
  545.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  546.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  547.             Text "Löschen, TEXT"
  548.             MenuFlags NONE 
  549.             Highlight COMPLEMENT 
  550.             ShortCutKey "T"
  551.         EndScript
  552.         Occurred
  553.             OpenRequester "SimpleReq","JaNein","Löschen","Textloader Meldung...","Möchten Sie wirklich","den ganzen Text","für immer löschen?","???"
  554.         EndScript
  555.     EndObject
  556.     TextMenu "Löschen, ZEILE"
  557.         Definition
  558.             AttachTo MENU ,"Editormenü"
  559.             Font "personal",8 ; FontName, PointSize
  560.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  561.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  562.             Text "Löschen, ZEILE"
  563.             MenuFlags NONE 
  564.             Highlight COMPLEMENT 
  565.             ShortCutKey "Z"
  566.         EndScript
  567.         Occurred
  568.             WorkWithDocument "TheDoc"
  569.             Clear LINE 
  570.         EndScript
  571.     EndObject
  572.     TextMenu "TrennstrichX3"
  573.         Definition
  574.             AttachTo MENU ,"Editormenü"
  575.             Font "personal",8 ; FontName, PointSize
  576.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  577.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  578.             Text "-------------------------------"
  579.             MenuFlags NONE 
  580.             Highlight NONE 
  581.             ShortCutKey ""
  582.         EndScript
  583.     EndObject
  584.     TextMenu "Cursor, Textanfang...   "
  585.         Definition
  586.             AttachTo MENU ,"Editormenü"
  587.             Font "personal",8 ; FontName, PointSize
  588.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  589.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  590.             Text "Cursor, Textanfang...   "
  591.             MenuFlags NONE 
  592.             Highlight COMPLEMENT 
  593.             ShortCutKey ":"
  594.         EndScript
  595.         Occurred
  596.             WorkWithDocument "TheDoc"
  597.             MoveCursorTo STARTOF DOCUMENT 
  598.         EndScript
  599.     EndObject
  600.     TextMenu "Cursor, Textende..."
  601.         Definition
  602.             AttachTo MENU ,"Editormenü"
  603.             Font "personal",8 ; FontName, PointSize
  604.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  605.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  606.             Text "Cursor, Textende..."
  607.             MenuFlags NONE 
  608.             Highlight COMPLEMENT 
  609.             ShortCutKey ";"
  610.         EndScript
  611.         Occurred
  612.             WorkWithDocument "TheDoc"
  613.             MoveCursorTo ENDOF DOCUMENT 
  614.         EndScript
  615.     EndObject
  616.     TextMenu "Cursor, EineZeile"
  617.         Definition
  618.             AttachTo MENU ,"Editormenü"
  619.             Font "personal",8 ; FontName, PointSize
  620.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  621.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  622.             Text "Neue Zeile"
  623.             MenuFlags NONE 
  624.             Highlight COMPLEMENT 
  625.             ShortCutKey "D"
  626.         EndScript
  627.         Occurred
  628.             NewLine
  629.         EndScript
  630.     EndObject
  631.     TextMenu "TrennstrichX4"
  632.         Definition
  633.             AttachTo MENU ,"Editormenü"
  634.             Font "personal",8 ; FontName, PointSize
  635.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  636.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  637.             Text "-------------------------------"
  638.             MenuFlags NONE 
  639.             Highlight NONE 
  640.             ShortCutKey ""
  641.         EndScript
  642.     EndObject
  643.     TextMenu "Drucken..."
  644.         Definition
  645.             AttachTo MENU ,"Editormenü"
  646.             Font "personal",8 ; FontName, PointSize
  647.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  648.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  649.             Text "Drucken..."
  650.             MenuFlags NONE 
  651.             Highlight COMPLEMENT 
  652.             ShortCutKey "P"
  653.         EndScript
  654.         Occurred
  655.             OpenRequester "SimpleReq","JaNein","Drucken","Textloader Meldung...","Wollen Sie wirklich","dieses Dokument","jetzt Ausdrucken lassen?"," "
  656.         EndScript
  657.     EndObject
  658.     TextMenu "TrennstrichX5"
  659.         Definition
  660.             AttachTo MENU ,"Editormenü"
  661.             Font "personal",8 ; FontName, PointSize
  662.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  663.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  664.             Text "-------------------------------"
  665.             MenuFlags NONE 
  666.             Highlight NONE 
  667.             ShortCutKey ""
  668.         EndScript
  669.     EndObject
  670.     TextMenu "Beenden..."
  671.         Definition
  672.             AttachTo MENU ,"Editormenü"
  673.             Font "personal",8 ; FontName, PointSize
  674.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  675.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  676.             Text "Beenden..."
  677.             MenuFlags NONE 
  678.             Highlight COMPLEMENT 
  679.             ShortCutKey "Q"
  680.         EndScript
  681.         Occurred
  682.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Frage...","Möchten Sie Ihr Dokument, vor","dem beenden noch sichern ???","",""
  683.         EndScript
  684.     EndObject
  685.     TextMenu "HTML Information"
  686.         Definition
  687.             AttachTo MENU ," WWWEdit "
  688.             Font "personal",8 ; FontName, PointSize
  689.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  690.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  691.             Text "HTML (Infos)"
  692.             MenuFlags NONE 
  693.             Highlight COMPLEMENT 
  694.             ShortCutKey ""
  695.         EndScript
  696.         Occurred
  697.             LoadDocument ("SchabloneInfo"),"TheDoc"
  698.         EndScript
  699.     EndObject
  700.     TextMenu "Schablone öffnen..."
  701.         Definition
  702.             AttachTo MENU ," WWWEdit "
  703.             Font "personal",8 ; FontName, PointSize
  704.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  705.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  706.             Text "HTML (Text)"
  707.             MenuFlags NONE 
  708.             Highlight COMPLEMENT 
  709.             ShortCutKey ""
  710.         EndScript
  711.         Occurred
  712.             LoadDocument ("Schablone1"),"TheDoc"
  713.         EndScript
  714.     EndObject
  715.     TextMenu "Systemuhr..."
  716.         Definition
  717.             AttachTo MENU ," Workbench "
  718.             Font "personal",8 ; FontName, PointSize
  719.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  720.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  721.             Text "Systemuhr..."
  722.             MenuFlags NONE 
  723.             Highlight COMPLEMENT 
  724.             ShortCutKey "U"
  725.         EndScript
  726.         Occurred
  727.             Dos "Run >Nil: <Nil: Sys:Utilities/Clock" ; Run the application
  728.         EndScript
  729.     EndObject
  730.     TextMenu "Taschenrechner..."
  731.         Definition
  732.             AttachTo MENU ," Workbench "
  733.             Font "personal",8 ; FontName, PointSize
  734.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  735.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  736.             Text "Taschenrechner..."
  737.             MenuFlags NONE 
  738.             Highlight COMPLEMENT 
  739.             ShortCutKey "C"
  740.         EndScript
  741.         Occurred
  742.             Dos "Run >Nil: <Nil: Sys:Tools/Calculator" ; Run the application
  743.         EndScript
  744.     EndObject
  745.     TextMenu "Tastaturbelegung..."
  746.         Definition
  747.             AttachTo MENU ," Workbench "
  748.             Font "personal",8 ; FontName, PointSize
  749.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  750.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  751.             Text "Tastaturbelegung..."
  752.             MenuFlags NONE 
  753.             Highlight COMPLEMENT 
  754.             ShortCutKey "K"
  755.         EndScript
  756.         Occurred
  757.             Dos "Run >Nil: <Nil: Sys:Tools/KeyShow" ; Run the application
  758.         EndScript
  759.     EndObject
  760.     TextMenu "Farbeneinsteller..."
  761.         Definition
  762.             AttachTo MENU ," Workbench "
  763.             Font "personal",8 ; FontName, PointSize
  764.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  765.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  766.             Text "Farbeneinsteller..."
  767.             MenuFlags NONE 
  768.             Highlight COMPLEMENT 
  769.             ShortCutKey "+"
  770.         EndScript
  771.         Occurred
  772.             If exists("sys:Tools/Colors")
  773.                 Dos "Run >Nil: <Nil: Sys:Tools/Colors" ; Run the application
  774.             ElseIf exists("sys:Prefs/Palette")
  775.                 Dos "Run >Nil: <Nil: Sys:Prefs/Palette"
  776.             Else
  777.                 Let Error =askforResponse("Programm existiert nicht!","Textloader Fehler...","")
  778.             EndIf
  779.         EndScript
  780.     EndObject
  781.     TextMenu "HD-Toolbox..."
  782.         Definition
  783.             AttachTo MENU ," Workbench "
  784.             Font "personal",8 ; FontName, PointSize
  785.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  786.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  787.             Text "HD-Toolbox..."
  788.             MenuFlags NONE 
  789.             Highlight COMPLEMENT 
  790.             ShortCutKey "%"
  791.         EndScript
  792.         Occurred
  793.             Dos "Run >Nil: <Nil: Sys:Tools/HDToolbox" ; Run the application
  794.         EndScript
  795.     EndObject
  796.     TextMenu "Cli-Fenster..."
  797.         Definition
  798.             AttachTo MENU ," Workbench "
  799.             Font "personal",8 ; FontName, PointSize
  800.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  801.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  802.             Text "Cli-Fenster..."
  803.             MenuFlags NONE 
  804.             Highlight COMPLEMENT 
  805.             ShortCutKey "$"
  806.         EndScript
  807.         Occurred
  808.             Dos "Run >Nil: <Nil: Sys:System/Cli" ; Run the application
  809.         EndScript
  810.     EndObject
  811.     TextMenu "Trennstrich6"
  812.         Definition
  813.             AttachTo MENU ," Workbench "
  814.             Font "personal",8 ; FontName, PointSize
  815.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  816.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  817.             Text "-------------------------------"
  818.             MenuFlags NONE 
  819.             Highlight NONE 
  820.             ShortCutKey ""
  821.         EndScript
  822.     EndObject
  823.     TextMenu "MenuItem_4"
  824.         Definition
  825.             AttachTo MENU ," Workbench "
  826.             Font "personal",8 ; FontName, PointSize
  827.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  828.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  829.             Text "Multiview..."
  830.             MenuFlags NONE 
  831.             Highlight COMPLEMENT 
  832.             ShortCutKey "0"
  833.         EndScript
  834.         Occurred
  835.             Dos "Run >Nil: <Nil: Sys:Utilities/Multiview"
  836.             If error
  837.                 Do "Fehlerroutine"
  838.             EndIf
  839.         EndScript
  840.     EndObject
  841.     TextMenu "DruckerPrefs..."
  842.         Definition
  843.             AttachTo MENU ," Workbench "
  844.             Font "personal",8 ; FontName, PointSize
  845.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  846.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  847.             Text "DruckerPrefs..."
  848.             MenuFlags NONE 
  849.             Highlight COMPLEMENT 
  850.             ShortCutKey "1"
  851.         EndScript
  852.         Occurred
  853.             Dos "Run >Nil: <Nil: Sys:prefs/Printer" ; Run the application
  854.         EndScript
  855.     EndObject
  856.     TextMenu "Zeiteinsteller..."
  857.         Definition
  858.             AttachTo MENU ," Workbench "
  859.             Font "personal",8 ; FontName, PointSize
  860.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  861.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  862.             Text "Zeiteinsteller..."
  863.             MenuFlags NONE 
  864.             Highlight COMPLEMENT 
  865.             ShortCutKey "2"
  866.         EndScript
  867.         Occurred
  868.             Dos "Run >Nil: <Nil: Sys:prefs/Time" ; Run the application
  869.         EndScript
  870.     EndObject
  871.     TextMenu "Sprache(Locale)..."
  872.         Definition
  873.             AttachTo MENU ," Workbench "
  874.             Font "personal",8 ; FontName, PointSize
  875.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  876.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  877.             Text "Sprache(Locale)..."
  878.             MenuFlags NONE 
  879.             Highlight COMPLEMENT 
  880.             ShortCutKey "3"
  881.         EndScript
  882.         Occurred
  883.             Dos "Run >Nil: <Nil: Sys:prefs/Locale" ; Run the application
  884.         EndScript
  885.     EndObject
  886.     TextMenu "Screenmodeprefs..."
  887.         Definition
  888.             AttachTo MENU ," Workbench "
  889.             Font "personal",8 ; FontName, PointSize
  890.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  891.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  892.             Text "Screenmodeprefs..."
  893.             MenuFlags NONE 
  894.             Highlight COMPLEMENT 
  895.             ShortCutKey "4"
  896.         EndScript
  897.         Occurred
  898.             Dos "Run >Nil: <Nil: Sys:Prefs/ScreenMode" ; Run the application
  899.         EndScript
  900.     EndObject
  901.     TextMenu "PrinterGfx..."
  902.         Definition
  903.             AttachTo MENU ," Workbench "
  904.             Font "personal",8 ; FontName, PointSize
  905.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  906.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  907.             Text "PrinterGfx..."
  908.             MenuFlags NONE 
  909.             Highlight COMPLEMENT 
  910.             ShortCutKey "5"
  911.         EndScript
  912.         Occurred
  913.             Dos "Run >Nil: <Nil: Sys:prefs/PrinterGfx" ; Run the application
  914.         EndScript
  915.     EndObject
  916.     TextMenu "Fonteinsteller..."
  917.         Definition
  918.             AttachTo MENU ," Workbench "
  919.             Font "personal",8 ; FontName, PointSize
  920.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  921.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  922.             Text "Fonteinsteller..."
  923.             MenuFlags NONE 
  924.             Highlight COMPLEMENT 
  925.             ShortCutKey "6"
  926.         EndScript
  927.         Occurred
  928.             Dos "Run >Nil: <Nil: Sys:prefs/Font" ; Run the application
  929.         EndScript
  930.     EndObject
  931.     TextMenu "Palette..."
  932.         Definition
  933.             AttachTo MENU ," PrefsTools "
  934.             Font "personal",8 ; FontName, PointSize
  935.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  936.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  937.             Text "Palette..."
  938.             MenuFlags NONE 
  939.             Highlight COMPLEMENT 
  940.             ShortCutKey "X"
  941.         EndScript
  942.         Occurred
  943.             OpenRequester "Palette","Palette"
  944.         EndScript
  945.     EndObject
  946.     TextMenu "Speicher..."
  947.         Definition
  948.             AttachTo MENU ," PrefsTools "
  949.             Font "personal",8 ; FontName, PointSize
  950.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  951.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  952.             Text "Speicher..."
  953.             MenuFlags NONE 
  954.             Highlight COMPLEMENT 
  955.             ShortCutKey "M"
  956.         EndScript
  957.         Occurred
  958.             OpenRequester "Avail","Avail"
  959.         EndScript
  960.     EndObject
  961.     IntervalTimer "TitelUhr"
  962.         Definition
  963.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  964.         EndScript
  965.         Occurred
  966.             Do "TitelUhr"
  967.         EndScript
  968.     EndObject
  969.     TextMenu "Sicherheitskopie anlegen (2)"
  970.         Definition
  971.             AttachTo OBJECT ,"Speichern, Backup           »"
  972.             Font "personal",8 ; FontName, PointSize
  973.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  974.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  975.             Text "Sicherheitskopie anlegen (2)"
  976.             MenuFlags NONE 
  977.             Highlight COMPLEMENT 
  978.             ShortCutKey ""
  979.         EndScript
  980.         Occurred
  981.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (2)"
  982.             SaveDocument "TheDoc","ram:2BackupTextloader",ASCII 
  983.             IfError
  984.                 Do "Fehlerroutine"
  985.             EndIf
  986.             Delay 0,3,1/50
  987.             SetWindowTitle "Textloader Editor, von Pascal Gisin  © 1994-96 B.S.E."
  988.         EndScript
  989.     EndObject
  990.     TextMenu "Sicherheitskopie anlegen (3)"
  991.         Definition
  992.             AttachTo OBJECT ,"Speichern, Backup           »"
  993.             Font "personal",8 ; FontName, PointSize
  994.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  995.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  996.             Text "Sicherheitskopie anlegen (3)"
  997.             MenuFlags NONE 
  998.             Highlight COMPLEMENT 
  999.             ShortCutKey ""
  1000.         EndScript
  1001.         Occurred
  1002.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (3)"
  1003.             SaveDocument "TheDoc","ram:3BackupTextloader",ASCII 
  1004.             IfError
  1005.                 Do "Fehlerroutine"
  1006.             EndIf
  1007.             Delay 0,3,1/50
  1008.             SetWindowTitle "Textloader Editor, von Pascal Gisin  © 1994-96 B.S.E."
  1009.         EndScript
  1010.     EndObject
  1011.     TextMenu "Sicherheitskopie anlegen (4)"
  1012.         Definition
  1013.             AttachTo OBJECT ,"Speichern, Backup           »"
  1014.             Font "personal",8 ; FontName, PointSize
  1015.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1016.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1017.             Text "Sicherheitskopie anlegen (4)"
  1018.             MenuFlags NONE 
  1019.             Highlight COMPLEMENT 
  1020.             ShortCutKey ""
  1021.         EndScript
  1022.         Occurred
  1023.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (4)"
  1024.             SaveDocument "TheDoc","ram:4BackupTextloader",ASCII 
  1025.             IfError
  1026.                 Do "Fehlerroutine"
  1027.             EndIf
  1028.             Delay 0,3,1/50
  1029.             SetWindowTitle "Textloader Editor, von Pascal Gisin  © 1994-96 B.S.E."
  1030.         EndScript
  1031.     EndObject
  1032.     TextMenu "-------------------------"
  1033.         Definition
  1034.             AttachTo OBJECT ,"Speichern, Backup           »"
  1035.             Font "topaz",8 ; FontName, PointSize
  1036.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1037.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1038.             Text "-------------------------"
  1039.             MenuFlags NONE 
  1040.             Highlight NONE 
  1041.             ShortCutKey ""
  1042.         EndScript
  1043.     EndObject
  1044.     TextMenu "Sicherheitskopie einfügen (1)"
  1045.         Definition
  1046.             AttachTo OBJECT ,"Speichern, Backup           »"
  1047.             Font "personal",8 ; FontName, PointSize
  1048.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1049.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1050.             Text "Sicherheitskopie einfügen (1)"
  1051.             MenuFlags NONE 
  1052.             Highlight COMPLEMENT 
  1053.             ShortCutKey ""
  1054.         EndScript
  1055.         Occurred
  1056.             LoadDocument "ram:1BackupTextloader","TheDoc"
  1057.         EndScript
  1058.     EndObject
  1059.     TextMenu "Sicherheitskopie einfügen (2)"
  1060.         Definition
  1061.             AttachTo OBJECT ,"Speichern, Backup           »"
  1062.             Font "personal",8 ; FontName, PointSize
  1063.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1064.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1065.             Text "Sicherheitskopie einfügen (2)"
  1066.             MenuFlags NONE 
  1067.             Highlight COMPLEMENT 
  1068.             ShortCutKey ""
  1069.         EndScript
  1070.         Occurred
  1071.             LoadDocument "ram:2BackupTextloader","TheDoc"
  1072.         EndScript
  1073.     EndObject
  1074.     TextMenu "Sicherheitskopie einfügen (3)"
  1075.         Definition
  1076.             AttachTo OBJECT ,"Speichern, Backup           »"
  1077.             Font "personal",8 ; FontName, PointSize
  1078.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1079.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1080.             Text "Sicherheitskopie einfügen (3)"
  1081.             MenuFlags NONE 
  1082.             Highlight COMPLEMENT 
  1083.             ShortCutKey ""
  1084.         EndScript
  1085.         Occurred
  1086.             LoadDocument "ram:3BackupTextloader","TheDoc"
  1087.         EndScript
  1088.     EndObject
  1089.     TextMenu "Sicherheitskopie einfügen (4)"
  1090.         Definition
  1091.             AttachTo OBJECT ,"Speichern, Backup           »"
  1092.             Font "personal",8 ; FontName, PointSize
  1093.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1094.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1095.             Text "Sicherheitskopie einfügen (4)"
  1096.             MenuFlags NONE 
  1097.             Highlight COMPLEMENT 
  1098.             ShortCutKey ""
  1099.         EndScript
  1100.         Occurred
  1101.             LoadDocument "ram:4BackupTextloader","TheDoc"
  1102.         EndScript
  1103.     EndObject
  1104.     TextMenu "OnlineHelp..."
  1105.         Definition
  1106.             AttachTo MENU ," Help "
  1107.             Font "personal",8 ; FontName, PointSize
  1108.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1109.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1110.             Text "OnlineHelp..."
  1111.             MenuFlags NONE 
  1112.             Highlight COMPLEMENT 
  1113.             ShortCutKey "O"
  1114.         EndScript
  1115.         Occurred
  1116.             If EXISTS ("sys:Utilities/Amigaguide")
  1117.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1118.             Else
  1119.                 If EXISTS ("sys:Utilities/Multiview")
  1120.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1121.                 Else
  1122.                     If EXISTS ("sys:c/Amigaguide")
  1123.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1124.                     Else
  1125.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1126.                     EndIf
  1127.                 EndIf
  1128.             EndIf
  1129.         EndScript
  1130.     EndObject
  1131.     TextMenu "MenuItem_1"
  1132.         Definition
  1133.             AttachTo MENU ," Workbench "
  1134.             Font "personal",8 ; FontName, PointSize
  1135.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1136.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1137.             Text "Pointer..."
  1138.             MenuFlags NONE 
  1139.             Highlight COMPLEMENT 
  1140.             ShortCutKey "7"
  1141.         EndScript
  1142.         Occurred
  1143.             Dos "Run >Nil: <Nil: Sys:Prefs/Pointer" ; Run the application
  1144.         EndScript
  1145.     EndObject
  1146.     TextMenu "MenuItem_2"
  1147.         Definition
  1148.             AttachTo MENU ," Workbench "
  1149.             Font "personal",8 ; FontName, PointSize
  1150.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1151.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1152.             Text "Sound..."
  1153.             MenuFlags NONE 
  1154.             Highlight COMPLEMENT 
  1155.             ShortCutKey "8"
  1156.         EndScript
  1157.         Occurred
  1158.             Dos "Run >Nil: <Nil: Sys:Prefs/Sound" ; Run the application
  1159.         EndScript
  1160.     EndObject
  1161.     TextMenu "MenuItem3"
  1162.         Definition
  1163.             AttachTo MENU ," Workbench "
  1164.             Font "personal",8 ; FontName, PointSize
  1165.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1166.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1167.             Text "PrinterPostscript..."
  1168.             MenuFlags NONE 
  1169.             Highlight COMPLEMENT 
  1170.             ShortCutKey "9"
  1171.         EndScript
  1172.         Occurred
  1173.             Dos "Run >Nil: <Nil: Sys:Prefs/PrinterPS" ; Run the application
  1174.         EndScript
  1175.     EndObject
  1176.     TextMenu "Trennstrich?"
  1177.         Definition
  1178.             AttachTo MENU ," Workbench "
  1179.             Font "personal",8 ; FontName, PointSize
  1180.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1181.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1182.             Text "-------------------------------"
  1183.             MenuFlags NONE 
  1184.             Highlight NONE 
  1185.             ShortCutKey ""
  1186.         EndScript
  1187.     EndObject
  1188.     AKey "KeyInput_1"
  1189.         Definition
  1190.             QualifiersPressed NONE 
  1191.             KeyPressed F7 
  1192.         EndScript
  1193.         OnDown
  1194.             Do "AusserFunktion"
  1195.         EndScript
  1196.     EndObject
  1197.     AKey "KeyInput_2"
  1198.         Definition
  1199.             QualifiersPressed NONE 
  1200.             KeyPressed F8 
  1201.         EndScript
  1202.         OnDown
  1203.             Do "AusserFunktion"
  1204.         EndScript
  1205.     EndObject
  1206.     AKey "KeyInput_3"
  1207.         Definition
  1208.             QualifiersPressed NONE 
  1209.             KeyPressed F9 
  1210.         EndScript
  1211.         OnDown
  1212.             Do "AusserFunktion"
  1213.         EndScript
  1214.     EndObject
  1215.     AKey "KeyInput_4"
  1216.         Definition
  1217.             QualifiersPressed NONE 
  1218.             KeyPressed F10 
  1219.         EndScript
  1220.         OnDown
  1221.             Do "AusserFunktion"
  1222.         EndScript
  1223.     EndObject
  1224.     TextMenu "NoFastMem"
  1225.         Definition
  1226.             AttachTo MENU ," Workbench "
  1227.             Font "personal",8 ; FontName, PointSize
  1228.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1229.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1230.             Text "NoFastMem"
  1231.             MenuFlags NONE 
  1232.             Highlight COMPLEMENT 
  1233.             ShortCutKey ""
  1234.         EndScript
  1235.         Occurred
  1236.             Dos "Run >Nil: <Nil: Sys:system/NoFastMem"
  1237.             If error
  1238.                 Do "Fehlerroutine"
  1239.             EndIf
  1240.         EndScript
  1241.     EndObject
  1242.     TextMenu "Rexxmast"
  1243.         Definition
  1244.             AttachTo MENU ," Workbench "
  1245.             Font "personal",8 ; FontName, PointSize
  1246.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1247.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1248.             Text "Rexxmast"
  1249.             MenuFlags NONE 
  1250.             Highlight COMPLEMENT 
  1251.             ShortCutKey ""
  1252.         EndScript
  1253.         Occurred
  1254.             Dos "Run >Nil: <Nil: Sys:system/Rexxmast"
  1255.             If error
  1256.                 Do "Fehlerroutine"
  1257.             EndIf
  1258.         EndScript
  1259.     EndObject
  1260.     TextMenu "CursorPosition"
  1261.         Definition
  1262.             AttachTo MENU ," Statistik "
  1263.             Font "personal",8 ; FontName, PointSize
  1264.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1265.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1266.             Text "Zeichen Total..."
  1267.             MenuFlags NONE 
  1268.             Highlight COMPLEMENT 
  1269.             ShortCutKey ""
  1270.         EndScript
  1271.         Occurred
  1272.             Do "Timing"
  1273.         EndScript
  1274.     EndObject
  1275.     TextMenu "Copy_of_CursorPosition"
  1276.         Definition
  1277.             AttachTo MENU ," Statistik "
  1278.             Font "personal",8 ; FontName, PointSize
  1279.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1280.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1281.             Text "Cursor wo..."
  1282.             MenuFlags NONE 
  1283.             Highlight COMPLEMENT 
  1284.             ShortCutKey ""
  1285.         EndScript
  1286.         Occurred
  1287.             Do "Timing2"
  1288.         EndScript
  1289.     EndObject
  1290.     TextMenu "Copy_2_of_CursorPosition"
  1291.         Definition
  1292.             AttachTo MENU ," Statistik "
  1293.             Font "personal",8 ; FontName, PointSize
  1294.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1295.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1296.             Text "Cursor auf Feld..."
  1297.             MenuFlags NONE 
  1298.             Highlight COMPLEMENT 
  1299.             ShortCutKey ""
  1300.         EndScript
  1301.         Occurred
  1302.             Do "Timing3"
  1303.         EndScript
  1304.     EndObject
  1305.     TextMenu "Copy_3_of_CursorPosition"
  1306.         Definition
  1307.             AttachTo MENU ," Statistik "
  1308.             Font "personal",8 ; FontName, PointSize
  1309.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1310.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1311.             Text "Cursor auf Zeile..."
  1312.             MenuFlags NONE 
  1313.             Highlight COMPLEMENT 
  1314.             ShortCutKey ""
  1315.         EndScript
  1316.         Occurred
  1317.             Do "Timing4"
  1318.         EndScript
  1319.     EndObject
  1320.     TextMenu "Copy_4_of_CursorPosition"
  1321.         Definition
  1322.             AttachTo MENU ," Statistik "
  1323.             Font "personal",8 ; FontName, PointSize
  1324.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1325.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1326.             Text "Zeilen Total..."
  1327.             MenuFlags NONE 
  1328.             Highlight COMPLEMENT 
  1329.             ShortCutKey ""
  1330.         EndScript
  1331.         Occurred
  1332.             Do "Timing5"
  1333.         EndScript
  1334.     EndObject
  1335.     TextMenu "MenuItem_3"
  1336.         Definition
  1337.             AttachTo MENU ," Statistik "
  1338.             Font "personal",8 ; FontName, PointSize
  1339.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1340.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  1341.             Text "------------------------"
  1342.             MenuFlags NONE 
  1343.             Highlight NONE 
  1344.             ShortCutKey ""
  1345.         EndScript
  1346.     EndObject
  1347.     TextMenu "Copy_5_of_CursorPosition"
  1348.         Definition
  1349.             AttachTo MENU ," Statistik "
  1350.             Font "personal",8 ; FontName, PointSize
  1351.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1352.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1353.             Text "Verfügbarer Chip Ram..."
  1354.             MenuFlags NONE 
  1355.             Highlight COMPLEMENT 
  1356.             ShortCutKey ""
  1357.         EndScript
  1358.         Occurred
  1359.             Do "Timing6"
  1360.         EndScript
  1361.     EndObject
  1362.     TextMenu "Copy_6_of_CursorPosition"
  1363.         Definition
  1364.             AttachTo MENU ," Statistik "
  1365.             Font "personal",8 ; FontName, PointSize
  1366.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1367.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1368.             Text "Verfügbarer Fast Ram..."
  1369.             MenuFlags NONE 
  1370.             Highlight COMPLEMENT 
  1371.             ShortCutKey ""
  1372.         EndScript
  1373.         Occurred
  1374.             Do "Timing7"
  1375.         EndScript
  1376.     EndObject
  1377.     TextMenu "GesamtMemory"
  1378.         Definition
  1379.             AttachTo MENU ," Statistik "
  1380.             Font "personal",8 ; FontName, PointSize
  1381.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1382.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1383.             Text "Total Ram..."
  1384.             MenuFlags NONE 
  1385.             Highlight COMPLEMENT 
  1386.             ShortCutKey ""
  1387.         EndScript
  1388.         Occurred
  1389.             Do "Timing9"
  1390.         EndScript
  1391.     EndObject
  1392.     TextMenu "Copy_of_MenuItem_3"
  1393.         Definition
  1394.             AttachTo MENU ," Statistik "
  1395.             Font "personal",8 ; FontName, PointSize
  1396.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1397.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  1398.             Text "------------------------"
  1399.             MenuFlags NONE 
  1400.             Highlight NONE 
  1401.             ShortCutKey ""
  1402.         EndScript
  1403.     EndObject
  1404.     TextMenu "Copy_7_of_CursorPosition"
  1405.         Definition
  1406.             AttachTo MENU ," Statistik "
  1407.             Font "personal",8 ; FontName, PointSize
  1408.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1409.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1410.             Text "System Version..."
  1411.             MenuFlags NONE 
  1412.             Highlight COMPLEMENT 
  1413.             ShortCutKey ""
  1414.         EndScript
  1415.         Occurred
  1416.             Do "Timing8"
  1417.         EndScript
  1418.     EndObject
  1419.     TextMenu "Farbenwahl"
  1420.         Definition
  1421.             AttachTo MENU ," PrefsTools "
  1422.             Font "personal",8 ; FontName, PointSize
  1423.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1424.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1425.             Text "Farben wahl..."
  1426.             MenuFlags NONE 
  1427.             Highlight COMPLEMENT 
  1428.             ShortCutKey ""
  1429.         EndScript
  1430.     EndObject
  1431.     TextMenu "Wb"
  1432.         Definition
  1433.             AttachTo OBJECT ,"Farbenwahl"
  1434.             Font "personal",8 ; FontName, PointSize
  1435.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1436.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1437.             Text "Wb"
  1438.             MenuFlags CHECKABLE CHECKIT 
  1439.             Highlight COMPLEMENT 
  1440.             ShortCutKey ""
  1441.         EndScript
  1442.         Occurred
  1443.             SetObjectState "Wb",true
  1444.             SetObjectState "WBold",false
  1445.             SetObjectState "Violetexotic",false
  1446.             SetObjectState "blacky",false
  1447.             SetObjectState "banana",false
  1448.             SetObjectState "PescaFruit",false
  1449.             SetObjectState "GreenApple",false
  1450.             SetObjectState "SpacyTint",false
  1451.             SetRGB 0,170,170,170
  1452.             SetRGB 1,0,0,17
  1453.             SetRGB 2,255,255,255
  1454.             SetRGB 3,102,136,187
  1455.         EndScript
  1456.     EndObject
  1457.     TextMenu "WBold"
  1458.         Definition
  1459.             AttachTo OBJECT ,"Farbenwahl"
  1460.             Font "personal",8 ; FontName, PointSize
  1461.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1462.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1463.             Text "WBold"
  1464.             MenuFlags CHECKABLE 
  1465.             Highlight COMPLEMENT 
  1466.             ShortCutKey ""
  1467.         EndScript
  1468.         Occurred
  1469.             SetObjectState "Wb",false
  1470.             SetObjectState "WBold",true
  1471.             SetObjectState "Violetexotic",false
  1472.             SetObjectState "blacky",false
  1473.             SetObjectState "banana",false
  1474.             SetObjectState "PescaFruit",false
  1475.             SetObjectState "GreenApple",false
  1476.             SetObjectState "SpacyTint",false
  1477.             SetRGB 0,0,85,170
  1478.             SetRGB 1,255,255,255
  1479.             SetRGB 2,0,0,34
  1480.             SetRGB 3,255,136,0
  1481.         EndScript
  1482.     EndObject
  1483.     TextMenu "Violetexotic"
  1484.         Definition
  1485.             AttachTo OBJECT ,"Farbenwahl"
  1486.             Font "personal",8 ; FontName, PointSize
  1487.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1488.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1489.             Text "Violett exotic"
  1490.             MenuFlags CHECKABLE 
  1491.             Highlight COMPLEMENT 
  1492.             ShortCutKey ""
  1493.         EndScript
  1494.         Occurred
  1495.             SetObjectState "Wb",false
  1496.             SetObjectState "WBold",false
  1497.             SetObjectState "Violetexotic",true
  1498.             SetObjectState "blacky",false
  1499.             SetObjectState "banana",false
  1500.             SetObjectState "PescaFruit",false
  1501.             SetObjectState "GreenApple",false
  1502.             SetObjectState "SpacyTint",false
  1503.             SetRGB 0,187,187,187
  1504.             SetRGB 1,0,0,0
  1505.             SetRGB 2,255,255,255
  1506.             SetRGB 3,204,0,153
  1507.         EndScript
  1508.     EndObject
  1509.     TextMenu "blacky"
  1510.         Definition
  1511.             AttachTo OBJECT ,"Farbenwahl"
  1512.             Font "personal",8 ; FontName, PointSize
  1513.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1514.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1515.             Text "blacky bounce"
  1516.             MenuFlags CHECKABLE 
  1517.             Highlight COMPLEMENT 
  1518.             ShortCutKey ""
  1519.         EndScript
  1520.         Occurred
  1521.             SetObjectState "Wb",false
  1522.             SetObjectState "WBold",false
  1523.             SetObjectState "Violetexotic",false
  1524.             SetObjectState "blacky",true
  1525.             SetObjectState "banana",false
  1526.             SetObjectState "PescaFruit",false
  1527.             SetObjectState "GreenApple",false
  1528.             SetObjectState "SpacyTint",false
  1529.             SetRGB 0,0,0,0
  1530.             SetRGB 1,255,255,255
  1531.             SetRGB 2,85,170,170
  1532.             SetRGB 3,204,51,85
  1533.         EndScript
  1534.     EndObject
  1535.     TextMenu "Banana"
  1536.         Definition
  1537.             AttachTo OBJECT ,"Farbenwahl"
  1538.             Font "personal",8 ; FontName, PointSize
  1539.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1540.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1541.             Text "Banana split"
  1542.             MenuFlags CHECKABLE 
  1543.             Highlight COMPLEMENT 
  1544.             ShortCutKey ""
  1545.         EndScript
  1546.         Occurred
  1547.             SetObjectState "Wb",false
  1548.             SetObjectState "WBold",false
  1549.             SetObjectState "Violetexotic",false
  1550.             SetObjectState "blacky",false
  1551.             SetObjectState "banana",true
  1552.             SetObjectState "PescaFruit",false
  1553.             SetObjectState "GreenApple",false
  1554.             SetObjectState "SpacyTint",false
  1555.             SetRGB 0,170,170,170
  1556.             SetRGB 1,0,0,0
  1557.             SetRGB 2,187,85,17
  1558.             SetRGB 3,221,221,0
  1559.         EndScript
  1560.     EndObject
  1561.     TextMenu "Pescafruit"
  1562.         Definition
  1563.             AttachTo OBJECT ,"Farbenwahl"
  1564.             Font "personal",8 ; FontName, PointSize
  1565.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1566.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1567.             Text "Pescafruit"
  1568.             MenuFlags CHECKABLE 
  1569.             Highlight COMPLEMENT 
  1570.             ShortCutKey ""
  1571.         EndScript
  1572.         Occurred
  1573.             SetObjectState "Wb",false
  1574.             SetObjectState "WBold",false
  1575.             SetObjectState "Violetexotic",false
  1576.             SetObjectState "blacky",false
  1577.             SetObjectState "banana",false
  1578.             SetObjectState "PescaFruit",true
  1579.             SetObjectState "GreenApple",false
  1580.             SetObjectState "SpacyTint",false
  1581.             SetRGB 0,170,170,170
  1582.             SetRGB 1,0,0,0
  1583.             SetRGB 2,255,17,68
  1584.             SetRGB 3,238,136,0
  1585.         EndScript
  1586.     EndObject
  1587.     TextMenu "GreenApple"
  1588.         Definition
  1589.             AttachTo OBJECT ,"Farbenwahl"
  1590.             Font "personal",8 ; FontName, PointSize
  1591.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1592.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1593.             Text "GreenApple"
  1594.             MenuFlags CHECKABLE 
  1595.             Highlight COMPLEMENT 
  1596.             ShortCutKey ""
  1597.         EndScript
  1598.         Occurred
  1599.             SetObjectState "Wb",false
  1600.             SetObjectState "WBold",false
  1601.             SetObjectState "Violetexotic",false
  1602.             SetObjectState "blacky",false
  1603.             SetObjectState "banana",false
  1604.             SetObjectState "PescaFruit",false
  1605.             SetObjectState "GreenApple",true
  1606.             SetObjectState "SpacyTint",false
  1607.             SetRGB 0,153,153,153
  1608.             SetRGB 1,0,0,0
  1609.             SetRGB 2,238,170,51
  1610.             SetRGB 3,0,136,0
  1611.         EndScript
  1612.     EndObject
  1613.     TextMenu "Spacytint"
  1614.         Definition
  1615.             AttachTo OBJECT ,"Farbenwahl"
  1616.             Font "personal",8 ; FontName, PointSize
  1617.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1618.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1619.             Text "Spacytint"
  1620.             MenuFlags CHECKABLE 
  1621.             Highlight COMPLEMENT 
  1622.             ShortCutKey ""
  1623.         EndScript
  1624.         Occurred
  1625.             SetObjectState "Wb",false
  1626.             SetObjectState "WBold",false
  1627.             SetObjectState "Violetexotic",false
  1628.             SetObjectState "blacky",false
  1629.             SetObjectState "banana",false
  1630.             SetObjectState "PescaFruit",false
  1631.             SetObjectState "GreenApple",false
  1632.             SetObjectState "SpacyTint",true
  1633.             SetRGB 0,255,255,255
  1634.             SetRGB 1,238,0,187
  1635.             SetRGB 2,0,0,0
  1636.             SetRGB 3,17,204,102
  1637.         EndScript
  1638.     EndObject
  1639.     AKey "OnlineHelp"
  1640.         Definition
  1641.             QualifiersPressed NONE 
  1642.             KeyPressed HELP 
  1643.         EndScript
  1644.         OnDown
  1645.             If EXISTS ("sys:Utilities/Amigaguide")
  1646.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1647.             Else
  1648.                 If EXISTS ("sys:Utilities/Multiview")
  1649.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1650.                 Else
  1651.                     If EXISTS ("sys:c/Amigaguide")
  1652.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1653.                     Else
  1654.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1655.                     EndIf
  1656.                 EndIf
  1657.             EndIf
  1658.         EndScript
  1659.     EndObject
  1660. * End of Card "Hauptfenster"
  1661. *************
  1662.  
  1663. *************
  1664. * Card "Systeminfos..."
  1665.     AfterAttachment ; used to be AfterStartup
  1666.         SetDrawMode JAM1 
  1667.         SetPen 1
  1668.         AreaRectangle 128,25,412,96
  1669.         SetPen 2
  1670.         LoadBrush "CanDo(PascalSAVEDISK)3:Textloader3/Textloader.brush","ClippedBrush"
  1671.         Transparent FALSE
  1672.         ShowBrush "ClippedBrush",181,143
  1673.         Transparent FALSE
  1674.         ShowBrush "ClippedBrush",156,142
  1675.         Do "SysInfoUpdates"
  1676.         SetDrawMode JAM1 
  1677.         SetPen 1
  1678.         DrawRectangle 194,189,257,44
  1679.         SetPen 2
  1680.         DrawLine 450,189,450,232
  1681.         DrawLine 450,232,195,232
  1682.         SetPen 2,1
  1683.         PrintText "Author: Gisin Pascal, Fiechtenweg 11, CH - 4147 Aesch",110,133
  1684.         SetDrawMode JAM1 
  1685.         SetPen 1
  1686.         DrawRectangle 99,129,474,16
  1687.         SetPen 2
  1688.         DrawLine 572,129,572,144
  1689.         DrawLine 99,144,573,144
  1690.     EndScript
  1691.     Window "UserWindow"
  1692.         Definition
  1693.             Origin 0,0
  1694.             Size 640,256
  1695.             Title "System-Infobar des Textloaders"
  1696.             NumberOfColors 4
  1697.             WindowColors 0,1,0 ; Detail, Block, Background
  1698.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  1699.             WindowFlags ACTIVATE TOFRONT 
  1700.         EndScript
  1701.         OnCloseButton
  1702.             LoadSubDeck "SimpleReq","SimpleReq"
  1703.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Meldung..."," ","Möchten Sie WIRKLICH","jetzt, den Textloader beenden?"," "
  1704.         EndScript
  1705.         OnActivated
  1706.             Nop
  1707.         EndScript
  1708.     EndObject
  1709.     TextButton "Zurück..."
  1710.         Definition
  1711.             Origin 238,196
  1712.             Font "topaz",8 ; FontName, PointSize
  1713.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1714.             TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  1715.             Text "Zum Editorfenster..."
  1716.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  1717.             Highlight COMPLEMENT 
  1718.             ButtonFlags NONE 
  1719.         EndScript
  1720.         OnRelease
  1721.             GotoCard "Hauptfenster"
  1722.         EndScript
  1723.     EndObject
  1724.     TextButton "Programm beenden"
  1725.         Definition
  1726.             Origin 257,215
  1727.             Font "topaz",8 ; FontName, PointSize
  1728.             PrintStyle BOLD SHADOW ,2,3 ; Style, Pen1, Pen2
  1729.             TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  1730.             Text "Programm beenden"
  1731.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  1732.             Highlight COMPLEMENT 
  1733.             ButtonFlags NONE 
  1734.         EndScript
  1735.         OnRelease
  1736.             Quit
  1737.         EndScript
  1738.     EndObject
  1739.     TextMenu "Gisin Pascal"
  1740.         Definition
  1741.             AttachTo MENU ,"Programmierer-INFO"
  1742.             Font "topaz",8 ; FontName, PointSize
  1743.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1744.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1745.             Text "Gisin Pascal"
  1746.             MenuFlags NONE 
  1747.             Highlight NONE 
  1748.             ShortCutKey ""
  1749.         EndScript
  1750.     EndObject
  1751.     TextMenu "Fiechtenweg 11"
  1752.         Definition
  1753.             AttachTo MENU ,"Programmierer-INFO"
  1754.             Font "topaz",8 ; FontName, PointSize
  1755.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1756.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1757.             Text "Fiechtenweg 11"
  1758.             MenuFlags NONE 
  1759.             Highlight NONE 
  1760.             ShortCutKey ""
  1761.         EndScript
  1762.     EndObject
  1763.     TextMenu "CH-4147 Aesch"
  1764.         Definition
  1765.             AttachTo MENU ,"Programmierer-INFO"
  1766.             Font "topaz",8 ; FontName, PointSize
  1767.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1768.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1769.             Text "CH-4147 Aesch"
  1770.             MenuFlags NONE 
  1771.             Highlight NONE 
  1772.             ShortCutKey ""
  1773.         EndScript
  1774.     EndObject
  1775.     TextMenu "---------------"
  1776.         Definition
  1777.             AttachTo MENU ,"Programmierer-INFO"
  1778.             Font "topaz",8 ; FontName, PointSize
  1779.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1780.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1781.             Text "---------------"
  1782.             MenuFlags NONE 
  1783.             Highlight NONE 
  1784.             ShortCutKey ""
  1785.         EndScript
  1786.     EndObject
  1787.     TextMenu "Tel (CH)79-3222353"
  1788.         Definition
  1789.             AttachTo MENU ,"Programmierer-INFO"
  1790.             Font "topaz",8 ; FontName, PointSize
  1791.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1792.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1793.             Text "Tel (CH)79-3222353"
  1794.             MenuFlags NONE 
  1795.             Highlight NONE 
  1796.             ShortCutKey ""
  1797.         EndScript
  1798.     EndObject
  1799.     TextMenu " "
  1800.         Definition
  1801.             AttachTo MENU ,"Programmierer-INFO"
  1802.             Font "topaz",8 ; FontName, PointSize
  1803.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1804.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1805.             Text " "
  1806.             MenuFlags NONE 
  1807.             Highlight NONE 
  1808.             ShortCutKey ""
  1809.         EndScript
  1810.     EndObject
  1811.     TextMenu "Programmiert CanDo 2.04&2.51"
  1812.         Definition
  1813.             AttachTo MENU ,"Programmierer-INFO"
  1814.             Font "topaz",8 ; FontName, PointSize
  1815.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1816.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1817.             Text "Programmiert CanDo 2.04&2.51"
  1818.             MenuFlags NONE 
  1819.             Highlight NONE 
  1820.             ShortCutKey ""
  1821.         EndScript
  1822.     EndObject
  1823.     TextMenu "  "
  1824.         Definition
  1825.             AttachTo MENU ,"Programmierer-INFO"
  1826.             Font "topaz",8 ; FontName, PointSize
  1827.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1828.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1829.             Text "  "
  1830.             MenuFlags NONE 
  1831.             Highlight NONE 
  1832.             ShortCutKey ""
  1833.         EndScript
  1834.     EndObject
  1835.     TextMenu "Empfohlene Konfiguration,"
  1836.         Definition
  1837.             AttachTo MENU ,"Programmierer-INFO"
  1838.             Font "personal",8 ; FontName, PointSize
  1839.             PrintStyle BOLD ,2,3 ; Style, Pen1, Pen2
  1840.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1841.             Text "Empfohlene Konfiguration,"
  1842.             MenuFlags NONE 
  1843.             Highlight NONE 
  1844.             ShortCutKey ""
  1845.         EndScript
  1846.     EndObject
  1847.     TextMenu "ist, OS2.0+ oder OS3.1!"
  1848.         Definition
  1849.             AttachTo MENU ,"Programmierer-INFO"
  1850.             Font "personal",8 ; FontName, PointSize
  1851.             PrintStyle BOLD ,2,3 ; Style, Pen1, Pen2
  1852.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1853.             Text "ist, OS2.0+ oder OS3.1!"
  1854.             MenuFlags NONE 
  1855.             Highlight NONE 
  1856.             ShortCutKey ""
  1857.         EndScript
  1858.     EndObject
  1859.     TextMenu "Zusätzlich, mindestens"
  1860.         Definition
  1861.             AttachTo MENU ,"Programmierer-INFO"
  1862.             Font "personal",8 ; FontName, PointSize
  1863.             PrintStyle BOLD ,2,3 ; Style, Pen1, Pen2
  1864.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1865.             Text "Zusätzlich, mindestens"
  1866.             MenuFlags NONE 
  1867.             Highlight NONE 
  1868.             ShortCutKey ""
  1869.         EndScript
  1870.     EndObject
  1871.     TextMenu "1mb RAM-Chip!"
  1872.         Definition
  1873.             AttachTo MENU ,"Programmierer-INFO"
  1874.             Font "personal",8 ; FontName, PointSize
  1875.             PrintStyle BOLD ,2,3 ; Style, Pen1, Pen2
  1876.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1877.             Text "1mb RAM-Chip!"
  1878.             MenuFlags NONE 
  1879.             Highlight NONE 
  1880.             ShortCutKey ""
  1881.         EndScript
  1882.     EndObject
  1883.     IntervalTimer "Timer_1"
  1884.         Definition
  1885.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  1886.         EndScript
  1887.         Occurred
  1888.             Do "SysInfoUpdates"
  1889.         EndScript
  1890.     EndObject
  1891.     IntervalTimer "Timer_2"
  1892.         Definition
  1893.             Duration 0,0,0 ; Minutes, Seconds, Jiffies
  1894.         EndScript
  1895.         Occurred
  1896.             Do "SysInfoUpdates2"
  1897.         EndScript
  1898.     EndObject
  1899.     TextMenu "Infos..."
  1900.         Definition
  1901.             AttachTo MENU ,"Menü"
  1902.             Font "topaz",8 ; FontName, PointSize
  1903.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1904.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1905.             Text "Infos..."
  1906.             MenuFlags NONE 
  1907.             Highlight COMPLEMENT 
  1908.             ShortCutKey ""
  1909.         EndScript
  1910.         Occurred
  1911.             Let Info = AskForResponse("Die empfohlene Konfiguration ist:"||Char(10)||"OS3.1, 2mb-ChipRAM und FastRAM!"||Char(10)||"Programmiert mit CanDo 2.01 und 2.51!"||Char(10)||" "||Char(10)||"    Textloader is a fine Product!","Textloader Infos...","")
  1912.         EndScript
  1913.     EndObject
  1914. * End of Card "Systeminfos..."
  1915. *************
  1916.  
  1917. *************
  1918. * Global routine "AusserFunktion"
  1919.     OpenRequester "SimpleReq","Kommentar","","Textloader Mitteilung","Taste/Option zurzeit keine","Funktion zugeordnet!"
  1920. * End of routine "AusserFunktion"
  1921. *************
  1922.  
  1923. *************
  1924. * Global routine "Beep"
  1925.     GetRGB 0,R0,G0,B0
  1926.     GetRGB 3,R3,G3,B3
  1927.     SetRGB 0,R3,G3,B3
  1928.     Delay 0,0,5
  1929.     SetRGB 0,R0,G0,B0
  1930. * End of routine "Beep"
  1931. *************
  1932.  
  1933. *************
  1934. * Global routine "Drucken"
  1935.     If Arg1 = FALSE
  1936.     Else
  1937.         SetWindowTitle "Drucke Dokument..."
  1938.         SaveDocument "TheDoc","PRT:"
  1939.         IfError
  1940.             Do "FehlerRoutine"
  1941.         EndIf
  1942.     EndIf
  1943. * End of routine "Drucken"
  1944. *************
  1945.  
  1946. *************
  1947. * Global routine "Einfügen"
  1948.     OpenRequester "DateiReq","Card_1","EinfügenDATA","Wähle einen Text zum einfügen..."
  1949.     IfError
  1950.         Do "Fehlerroutine"
  1951.     EndIf
  1952. * End of routine "Einfügen"
  1953. *************
  1954.  
  1955. *************
  1956. * Global routine "EinfügenDATA"
  1957.     Let Newfile = Arg1
  1958.     If newfile<>nothing
  1959.         If Not Match(FileType(newfile),"Unknown","FTXT")
  1960.             SetWindowTitle "Kann File nicht Laden """||newfile||""""
  1961.         Else
  1962.             SetWindowTitle "Lade einzufügender Text....."
  1963.             InsertDocument newfile,"TheDoc"
  1964.             IfError
  1965.                 Do "Fehlerroutine"
  1966.             Else
  1967.                 Let FileToGet=newfile
  1968.                 SetWindowTitle "FileName :"""||FileToGet||""""
  1969.             EndIf
  1970.         EndIf
  1971.     EndIf
  1972. * End of routine "EinfügenDATA"
  1973. *************
  1974.  
  1975. *************
  1976. * Global routine "Ende"
  1977.     If Arg1 = FALSE
  1978.         Quit
  1979.     Else
  1980.         Do "SichernVorBeenden"
  1981.         IfError
  1982.             Do "Fehlerroutine"
  1983.         EndIf
  1984.     EndIf
  1985. * End of routine "Ende"
  1986. *************
  1987.  
  1988. *************
  1989. * Global routine "Ende2"
  1990.     If Arg1 = FALSE
  1991.     Else
  1992.         Flush "Document_1"
  1993.         Quit
  1994.     EndIf
  1995. * End of routine "Ende2"
  1996. *************
  1997.  
  1998. *************
  1999. * Global routine "EndeCloseknopf"
  2000.     If Arg1 = FALSE
  2001.     Else
  2002.         Quit
  2003.         IfError
  2004.             Do "Fehlerroutine"
  2005.         EndIf
  2006.     EndIf
  2007. * End of routine "EndeCloseknopf"
  2008. *************
  2009.  
  2010. *************
  2011. * Global routine "FehlerRoutine"
  2012.     Nop ; $VER: Textloader-Editor 6.x (20.12.1997) Pascal Gisin, Fiechtenweg 11, CH - 4147 Aesch
  2013.     Nop ;
  2014.     Nop ; ErrorCodes und Weiterentwicklung Pascal Gisin 1997-98 V6.0
  2015.     Do "Beep"
  2016.     If ErrorCode = "1"
  2017.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannten Puffer nicht gefunden"
  2018.     ElseIf ErrorCode = "2"
  2019.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannte Routine nicht gefunden"
  2020.     ElseIf ErrorCode = "3"
  2021.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannter Puffer nicht vom","erforderlichen Typ"
  2022.     ElseIf ErrorCode = "4"
  2023.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Fenster geöffnet"
  2024.     ElseIf ErrorCode = "6"
  2025.         OpenRequester "SimpleReq","Kommentar","","Meldung","Card nicht gefunden"
  2026.     ElseIf ErrorCode = "8"
  2027.         OpenRequester "SimpleReq","Kommentar","","Meldung","Stack überlaufen"
  2028.     ElseIf ErrorCode = "9"
  2029.         OpenRequester "SimpleReq","Kommentar","","Meldung","Name wertet einen NULL String aus"
  2030.     ElseIf ErrorCode = "10"
  2031.         OpenRequester "SimpleReq","Kommentar","","Meldung","Brush wurde nicht mit Maske","gespeichert"
  2032.     ElseIf ErrorCode = "11"
  2033.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele IFs"
  2034.     ElseIf ErrorCode = "13"
  2035.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine ARexx Nachricht anhängig","oder RESULTS Flage nicht gesetzt"
  2036.     ElseIf ErrorCode = "16"
  2037.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht gefunden"
  2038.     ElseIf ErrorCode = "17"
  2039.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht vom","erforderlichen","Typ"
  2040.     ElseIf ErrorCode = "18"
  2041.         OpenRequester "SimpleReq","Kommentar","","Meldung","Befehl im aktuellen Modus","nicht verfügbar"
  2042.     ElseIf ErrorCode = "19"
  2043.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht zugeteilt"
  2044.     ElseIf ErrorCode = "22"
  2045.         OpenRequester "SimpleReq","Kommentar","","Meldung","Puffer ist im Gebrauch"
  2046.     ElseIf ErrorCode = "23"
  2047.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Dokument gewählt"
  2048.     ElseIf ErrorCode = "25"
  2049.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Daten"
  2050.     ElseIf ErrorCode = "32"
  2051.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dokumenten Zeile zu lang"
  2052.     ElseIf ErrorCode = "33"
  2053.         OpenRequester "SimpleReq","Kommentar","","Meldung","Externe STOP Nachricht erhalten"
  2054.     ElseIf ErrorCode = "41"
  2055.         OpenRequester "SimpleReq","Kommentar","","Meldung","Druckvorgang wurde durch den","benutzer Abgebrochen!"
  2056.     ElseIf ErrorCode = "51"
  2057.         OpenRequester "SimpleReq","Kommentar","","Meldung","Interner Fehler"
  2058.     ElseIf ErrorCode = "52"
  2059.         OpenRequester "SimpleReq","Kommentar","","Meldung","Deplazierter Operator"
  2060.     ElseIf ErrorCode = "53"
  2061.         OpenRequester "SimpleReq","Kommentar","","Meldung","Division durch NULL"
  2062.     ElseIf ErrorCode = "54"
  2063.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unpassende Klammern"
  2064.     ElseIf ErrorCode = "55"
  2065.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ausdruck ist zu kompliziert"
  2066.     ElseIf ErrorCode = "56"
  2067.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Ausdruck"
  2068.     ElseIf ErrorCode = "57"
  2069.         OpenRequester "SimpleReq","Kommentar","","Meldung","Operation mit verschiedenen","Datentypen"
  2070.     ElseIf ErrorCode = "58"
  2071.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Operation für","Datentyp"
  2072.     ElseIf ErrorCode = "59"
  2073.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Datentyp"
  2074.     ElseIf ErrorCode = "60"
  2075.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Variablen Bezeichnung"
  2076.     ElseIf ErrorCode = "61"
  2077.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige String Konstante"
  2078.     ElseIf ErrorCode = "78"
  2079.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter Befehl"
  2080.     ElseIf ErrorCode = "79"
  2081.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele Parameter"
  2082.     ElseIf ErrorCode = "80"
  2083.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu wenig Parameter"
  2084.     ElseIf ErrorCode = "81"
  2085.         OpenRequester "SimpleReq","Kommentar","","Meldung","Font nicht verfügbar"
  2086.     ElseIf ErrorCode = "82"
  2087.         OpenRequester "SimpleReq","Kommentar","","Meldung","Syntax Fehler"
  2088.     ElseIf ErrorCode = "83"
  2089.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verfrühtes EOF"
  2090.     ElseIf ErrorCode = "84"
  2091.         OpenRequester "SimpleReq","Kommentar","","Meldung","Port des Empfängers nicht","gefunden"
  2092.     ElseIf ErrorCode = "85"
  2093.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter IFF FORM Typ"
  2094.     ElseIf ErrorCode = "89"
  2095.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Bildschirms"
  2096.     ElseIf ErrorCode = "90"
  2097.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Fensters"
  2098.     ElseIf ErrorCode = "91"
  2099.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiges Muster (Pattern)"
  2100.     ElseIf ErrorCode = "103"
  2101.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Speicher"
  2102.     ElseIf ErrorCode = "115"
  2103.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Zahlenwert"
  2104.     ElseIf ErrorCode = "116"
  2105.         OpenRequester "SimpleReq","Kommentar","","Meldung","Gefordertes Argument fehlt"
  2106.     ElseIf ErrorCode = "117"
  2107.         OpenRequester "SimpleReq","Kommentar","","Meldung","Argument nach Schlüsselwort","fehlt!"
  2108.     ElseIf ErrorCode = "118"
  2109.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falsche Anzahl an Argumenten"
  2110.     ElseIf ErrorCode = "119"
  2111.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungerade Anzahl von Anführungs-","zeichen"
  2112.     ElseIf ErrorCode = "120"
  2113.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Argumente"
  2114.     ElseIf ErrorCode = "121"
  2115.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  2116.     ElseIf ErrorCode = "202"
  2117.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Gebrauch"
  2118.     ElseIf ErrorCode = "203"
  2119.         OpenRequester "SimpleReq","Kommentar","","Meldung","Obejekt existiert bereits"
  2120.     ElseIf ErrorCode = "204"
  2121.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis nicht gefunden"
  2122.     ElseIf ErrorCode = "205"
  2123.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt nicht gefunden"
  2124.     ElseIf ErrorCode = "206"
  2125.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Fensterparameter"
  2126.     ElseIf ErrorCode = "209"
  2127.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter DOS Packet-","Request-Typ"
  2128.     ElseIf ErrorCode = "210"
  2129.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dateiname ist nicht bekannt!","Bitte geben Sie den genauen","Filepfad ein!"
  2130.     ElseIf ErrorCode = "212"
  2131.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Dateityp"
  2132.     ElseIf ErrorCode = "213"
  2133.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist nicht gültig","vielleicht fehlerhaft...","oder anderer Dos Typ!"
  2134.     ElseIf ErrorCode = "214"
  2135.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist schreibgeschützt"
  2136.     ElseIf ErrorCode = "215"
  2137.         OpenRequester "SimpleReq","Kommentar","","Meldung","Umbenennen auf anderen","Datenträger versucht"
  2138.     ElseIf ErrorCode = "216"
  2139.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis ist nicht leer"
  2140.     ElseIf ErrorCode = "217"
  2141.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu tiefe Schachtelung"
  2142.     ElseIf ErrorCode = "218"
  2143.         OpenRequester "SimpleReq","Kommentar","","Meldung","Device nicht angemeldet","(mounted)"
  2144.     ElseIf ErrorCode = "219"
  2145.         OpenRequester "SimpleReq","Kommentar","","Meldung","Suchfehler"
  2146.     ElseIf ErrorCode = "220"
  2147.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kommentar ist zu lang"
  2148.     ElseIf ErrorCode = "221"
  2149.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist voll"
  2150.     ElseIf ErrorCode = "222"
  2151.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist löschgeschützt"
  2152.     ElseIf ErrorCode = "223"
  2153.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist schreibgeschützt"
  2154.     ElseIf ErrorCode = "224"
  2155.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist lesegeschützt"
  2156.     ElseIf ErrorCode = "225"
  2157.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine DOS Diskette"
  2158.     ElseIf ErrorCode = "226"
  2159.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine Disk eingelegt"
  2160.     ElseIf ErrorCode = "232"
  2161.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine weiteren Verzeichnis-","einträge"
  2162.     ElseIf ErrorCode = "233"
  2163.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Verbund"
  2164.     ElseIf ErrorCode = "235"
  2165.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Hunk in zu","ladender Datei"
  2166.     ElseIf ErrorCode = "241"
  2167.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kollision bei Datensatz-","sperre"
  2168.     ElseIf ErrorCode = "242"
  2169.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zeitüberschreitung bei","Datensatzsperre"
  2170.     ElseIf ErrorCode = "303"
  2171.         OpenRequester "SimpleReq","Kommentar","","Meldung","Pufferüberlauf"
  2172.     ElseIf ErrorCode = "304"
  2173.         OpenRequester "SimpleReq","Kommentar","","Meldung","Abbruch wurde eingeleitet","mit CTRL-C"
  2174.     ElseIf ErrorCode = "305"
  2175.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  2176.     Else
  2177.         OpenRequester "SimpleReq","Kommentar","","Fehlermeldung",ErrorText
  2178.     EndIf
  2179. * End of routine "FehlerRoutine"
  2180. *************
  2181.  
  2182. *************
  2183. * Global routine "Löschen"
  2184.     If Arg1 = FALSE
  2185.     Else
  2186.         WorkWithDocument "TheDoc"
  2187.         Clear DOCUMENT 
  2188.     EndIf
  2189. * End of routine "Löschen"
  2190. *************
  2191.  
  2192. *************
  2193. * Global routine "Message"
  2194.     Do "SetzeAttr"
  2195.     PrintText CenterString(Arg1,43),12,15
  2196.     PrintText CenterString(Arg2,43),12,25
  2197.     PrintText CenterString(Arg3,43),12,35
  2198.     PrintText CenterString(Arg4,43),12,45
  2199. * End of routine "Message"
  2200. *************
  2201.  
  2202. *************
  2203. * Global routine "S"
  2204.     OpenRequester "SuchReq","Card_1","Suchen"
  2205. * End of routine "S"
  2206. *************
  2207.  
  2208. *************
  2209. * Global routine "SetzeAttr"
  2210.     SetPrintFont "topaz",8
  2211.     SetPrintStyle PLAIN ,2,3
  2212.     SetPen 1,0
  2213.     SetDrawMode JAM2 
  2214. * End of routine "SetzeAttr"
  2215. *************
  2216.  
  2217. *************
  2218. * Global routine "SF"
  2219.     WorkWithDocument "TheDoc"
  2220.     If MyByword=TRUE AND MyNocase=TRUE
  2221.         SearchFor Suchwort,BYWORD NOCASE 
  2222.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  2223.         SearchFor Suchwort
  2224.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  2225.         SearchFor Suchwort,BYWORD 
  2226.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  2227.         SearchFor Suchwort,NOCASE 
  2228.     EndIf
  2229.     If SearchFound=TRUE
  2230.         SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  2231.     Else
  2232.         Do "Beep"
  2233.         SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  2234.     EndIf
  2235. * End of routine "SF"
  2236. *************
  2237.  
  2238. *************
  2239. * Global routine "Sicherheitsabfrage"
  2240.     Nop
  2241. * End of routine "Sicherheitsabfrage"
  2242. *************
  2243.  
  2244. *************
  2245. * Global routine "SichernVorBeenden"
  2246.     SetFileRequestMode SAVEFILEMODE ,NONE 
  2247.     Let Arg1=AskForFilename("","Text noch schnell sichern...","155","39","340","180")
  2248.     Let Antwort = Arg1
  2249.     If Antwort <> ""
  2250.         Let Dateispeichername = Antwort
  2251.         SetWindowTitle "Speichere nun im ASCII Format!"
  2252.         SaveDocument "TheDoc",Dateispeichername,ASCII 
  2253.         IfError
  2254.             Do "Fehlerroutine"
  2255.         EndIf
  2256.     EndIf
  2257.     SetWindowTitle "Bis zum nächsten mal, tschüss!"
  2258.     Delay 0,5,1/50
  2259.     Quit
  2260. * End of routine "SichernVorBeenden"
  2261. *************
  2262.  
  2263. *************
  2264. * Global routine "Suchen"
  2265.     Let Suchwort=Arg1
  2266.     Let MyByword=Arg2
  2267.     Let MyNocase=Arg3
  2268.     WorkWithDocument "TheDoc"
  2269.     If MyByword=TRUE AND MyNocase=TRUE
  2270.         SearchFor Suchwort,BYWORD NOCASE 
  2271.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  2272.         SearchFor Suchwort
  2273.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  2274.         SearchFor Suchwort,BYWORD 
  2275.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  2276.         SearchFor Suchwort,NOCASE 
  2277.     EndIf
  2278.     If SearchFound=TRUE
  2279.         SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  2280.     Else
  2281.         Do "Beep"
  2282.         SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  2283.     EndIf
  2284. * End of routine "Suchen"
  2285. *************
  2286.  
  2287. *************
  2288. * Global routine "SysInfoUpdates"
  2289.     MakeDocument "ChangeDateFormat"
  2290.     Type ""||TheDate
  2291.     MoveCursorTo STARTOF DOCUMENT 
  2292.     MoveCursorTo STARTOF LINE 
  2293.     MoveCursor RIGHT ,3
  2294.     SplitLine
  2295.     MoveCursor RIGHT ,3
  2296.     SplitLine
  2297.     PositionOnLine 1
  2298.     Let Monat = TheLine
  2299.     PositionOnLine 2
  2300.     Let Tag = TheLine
  2301.     PositionOnLine 3
  2302.     Let Jahr = TheLine
  2303.     MakeDocument "DisplayChange"
  2304.     Type ""||Tag||Monat||Jahr
  2305.     Let Datum = TextFromDocument("DisplayChange")
  2306.     Do "SetzeAttr"
  2307.     SetPen 2,1
  2308.     PrintText "Heutiges Datum          :  """||Datum||"""",147,89
  2309.     PrintText "Aktuelle Uhrzeit        :  """||TheTime||"""",147,99
  2310. * End of routine "SysInfoUpdates"
  2311. *************
  2312.  
  2313. *************
  2314. * Global routine "SysInfoUpdates2"
  2315.     Do "SetzeAttr"
  2316.     SetPen 2,1
  2317.     PrintText "Verfügbarer (Chip) Ram  :  """||AvailableChipMemory||"""",147,29
  2318.     PrintText "Verfügbarer (Fast) Ram  :  """||AvailableFastMemory||"""",147,39
  2319.     PrintText "Chip+Fast (GesamtMem)   :  """||AvailableMemory||"""",147,59
  2320.     PrintText "Betriebssystem, Test... :  Revision """||IntuitionVersion||"""",147,79
  2321. * End of routine "SysInfoUpdates2"
  2322. *************
  2323.  
  2324. *************
  2325. * Global routine "Timing"
  2326.     WorkWithDocument "TheDoc"
  2327.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||SizeOfDocument||""""
  2328. * End of routine "Timing"
  2329. *************
  2330.  
  2331. *************
  2332. * Global routine "Timing2"
  2333.     WorkWithDocument "TheDoc"
  2334.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheCharacter||""""
  2335. * End of routine "Timing2"
  2336. *************
  2337.  
  2338. *************
  2339. * Global routine "Timing3"
  2340.     WorkWithDocument "TheDoc"
  2341.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheColumnNumber||""""
  2342. * End of routine "Timing3"
  2343. *************
  2344.  
  2345. *************
  2346. * Global routine "Timing4"
  2347.     WorkWithDocument "TheDoc"
  2348.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheLineNumber||""""
  2349. * End of routine "Timing4"
  2350. *************
  2351.  
  2352. *************
  2353. * Global routine "Timing5"
  2354.     WorkWithDocument "TheDoc"
  2355.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||LinesInDocument||""""
  2356. * End of routine "Timing5"
  2357. *************
  2358.  
  2359. *************
  2360. * Global routine "Timing6"
  2361.     WorkWithDocument "TheDoc"
  2362.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableChipMemory||""""
  2363. * End of routine "Timing6"
  2364. *************
  2365.  
  2366. *************
  2367. * Global routine "Timing7"
  2368.     WorkWithDocument "TheDoc"
  2369.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableFastMemory||""""
  2370. * End of routine "Timing7"
  2371. *************
  2372.  
  2373. *************
  2374. * Global routine "Timing8"
  2375.     WorkWithDocument "TheDoc"
  2376.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||IntuitionVersion||""""
  2377. * End of routine "Timing8"
  2378. *************
  2379.  
  2380. *************
  2381. * Global routine "Timing9"
  2382.     WorkWithDocument "TheDoc"
  2383.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableMemory||""""
  2384. * End of routine "Timing9"
  2385. *************
  2386.  
  2387. *************
  2388. * Global routine "TitelUhr"
  2389.     Do "SetzeAttr"
  2390.     SetPen 2
  2391.     PrintText """"||TheTime||"""",481,1
  2392. * End of routine "TitelUhr"
  2393. *************
  2394.  
  2395.